home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue50 / Localise / GridView.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-18  |  1.5 KB  |  72 lines
  1. unit GridView;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, Buttons, DBCtrls, ExtCtrls, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Panel1: TPanel;
  12.     DBNavigator1: TDBNavigator;
  13.     SpeedButtonView: TSpeedButton;
  14.     DBGrid1: TDBGrid;
  15.     RangeSpeedButton: TSpeedButton;
  16.     Panel2: TPanel;
  17.     LanguageSpeedButton: TSpeedButton;
  18.     procedure SpeedButtonViewClick(Sender: TObject);
  19.     procedure RangeSpeedButtonClick(Sender: TObject);
  20.     procedure LanguageSpeedButtonClick(Sender: TObject);
  21.     procedure FormCreate(Sender: TObject);
  22.   private
  23.     CurrLocale: LCID;
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. uses DataM, FormView, ReInit;
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure TForm1.SpeedButtonViewClick(Sender: TObject);
  36. begin
  37.   Form3.Show;
  38. end;
  39.  
  40. procedure TForm1.RangeSpeedButtonClick(Sender: TObject);
  41. begin
  42.   DataModule2.ChooseRange;
  43. end;
  44.  
  45. const
  46.   ENGLISH = (SUBLANG_ENGLISH_UK shl 10) or LANG_ENGLISH;
  47.   ITALIAN = LANG_ITALIAN;
  48.  
  49. procedure TForm1.LanguageSpeedButtonClick(Sender: TObject);
  50. var
  51.   Locale: LCID;
  52. begin
  53.   if CurrLocale = ENGLISH then
  54.     Locale := ITALIAN
  55.   else
  56.     Locale := ENGLISH;
  57.  
  58.   if LoadNewResourceModule(Locale) <> 0 then
  59.   begin
  60.     ReinitializeForms;
  61.     CurrLocale := Locale;
  62.   end;
  63. end;
  64.  
  65. procedure TForm1.FormCreate(Sender: TObject);
  66. begin
  67.   // start with user locale (not always the case, though)
  68.   CurrLocale := GetUserDefaultLCID;
  69. end;
  70.  
  71. end.
  72.